﻿Public Class Add_Contact


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        'Need to validate content
        Dim mc As New SMSClasses.Person
        Dim myApp As SMSClasses.App = SMSClasses.App.Instance
        mc.Name = Me.txtName.Text
        mc.Telephone = Me.txtNumber.Text

        myApp.AddNewPerson(mc)

        Me.Close()


    End Sub
End Class